home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / ClipWizard V1.1 / Install-ClipWizard < prev    next >
Text File  |  1996-09-26  |  3KB  |  98 lines
  1. (set version ("1.1"))
  2. (set app-name ("ClipWizard V" version))
  3. ; $VER: ClipWizard Installer script 1.1 (12.4.95)
  4. (complete 0)
  5.  
  6.  
  7. (set destdir
  8.   (askdir
  9. ;     (prompt ("sss"))
  10.     (prompt ("Please select a directory where ClipWizard V%s should be copied" version))
  11.     (help (cat "No directory will be created by the script.\n" @copyfiles-help))
  12.     (default @default-dest)
  13.   )
  14. )
  15. (complete 12)
  16. (copyfiles 
  17.   (prompt ("Copying ClipWizard V%s\nto \"%s\"" version destdir))
  18.   (source "ClipWizard")
  19.   (dest destdir)
  20.   (infos)
  21. )
  22. (complete 24)
  23. (set docdir
  24.   (askdir
  25.     (prompt ("Please select a directory where the amigaguide documentation should be copied"))
  26.     (help @askdir-help)
  27.     (default destdir)
  28.   )
  29. )
  30. (complete 36)
  31. (copyfiles 
  32.   (prompt ("Copying amigaguide documentation"))
  33.   (help @copyfiles-help)
  34.   (source ("ClipWizard.guide"))
  35.   (dest docdir)
  36.   (infos)
  37. )
  38. (complete 48)
  39. (set matchfile
  40.   (askfile
  41.     (prompt ("Please select a file to be used as the matchfile"))
  42.     (help (cat ("Matchfile is the file where the information on different formats is saved. You can find more information on the matchfile from the amigaguide documentation\n") @askfile-help))
  43.     (default ("ENVARC:/Matchfile"))
  44.   )
  45. )
  46. (complete 60)
  47. (copyfiles
  48.   (prompt ("Copying default matchfile to \"%s\"" matchfile))
  49.   (source ("matchfile"))
  50.   (dest (pathonly (matchfile)))
  51.   (newname (fileonly (matchfile)))
  52. )
  53. (if (= (pathonly matchfile) "ENVARC:")
  54.   (
  55.     (set matchfile (tackon "ENV:" (fileonly matchfile)))
  56.     (copyfiles  (prompt ("Copying default matchfile to \"%s\"" matchfile))
  57.       (source ("matchfile"))
  58.       (dest (pathonly (matchfile)))
  59.       (newname (fileonly (matchfile)))
  60.     )
  61.   )
  62. )
  63. (complete 72)
  64. (tooltype
  65.   (prompt ("Modifying tooltypes"))
  66.   (help "No help available.")
  67.   (dest (tackon (destdir) ("ClipWizard")))
  68.   (settooltype "MATCHFILE" matchfile)
  69. )
  70. (complete 84)
  71. (if
  72.   (askbool
  73.     (prompt "Install some example scripts?")
  74.     (help "These scripts are not necessary, but gives you a good idea on what can be done with ClipWizard. They are also useful 'as-is'.")
  75.     (default 1)
  76.   )
  77.   (
  78.     (set scriptdir
  79.       (askdir
  80.         (prompt "Please select a directory where the example scripts should be copied")
  81.         (help @askdir-help)
  82.         (default (tackon destdir "Scripts"))
  83.         (newpath)
  84.       )
  85.     )
  86.     (copyfiles
  87.       (prompt ("Copying example scripts \"%s\"" matchfile))
  88.       (source ("Scripts"))
  89.       (dest scriptdir)
  90.       (all)
  91.     )
  92.   )
  93. )
  94.  
  95. (complete 100)
  96. (set @default-dest destdir)
  97. (exit ("You will need to edit the matchfile and possibly the example scripts so they an find all the necessary files" version))
  98.